home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / intuition / Border.st < prev    next >
Encoding:
Text File  |  2000-05-03  |  3.7 KB  |  138 lines
  1. "--------------------------------------------------"
  2. " Border Class implements control of Amiga Borders."
  3. " The method to actually display the Border is in  "
  4. " the Window Classes.                              "
  5. "--------------------------------------------------"
  6.  
  7. Class Border :Glyph
  8. ! 
  9.   leftEdge topEdge frontPen backPen drawMode count nextBorderName name
  10. !
  11. [
  12.    remove
  13.       <primitive 187 0 name>
  14. |
  15.    registerTo: windowTitle
  16.       <primitive 187 5 windowTitle name>
  17. |
  18.    setStartPoint: sPoint " Set the LeftEdge & TopEdge parameters: "
  19.       leftEdge <- sPoint x.
  20.       topEdge  <- sPoint y.
  21.       <primitive 187 3 0 leftEdge name>.
  22.       <primitive 187 3 1 topEdge  name>
  23. |
  24.    getStartPoint
  25.       leftEdge <- <primitive 187 2 0 name>.
  26.       topEdge  <- <primitive 187 2 1 name>.
  27.       ^ leftEdge @ topEdge
  28. |
  29.    getBorderPens
  30.       frontPen <- <primitive 187 2 2 name>.
  31.       backPen  <- <primitive 187 2 3 name>.
  32.       ^ frontPen @ backPen
  33. |
  34.    setBorderPens: newPensPoint ! fp bp !
  35.       fp <- newPensPoint x.
  36.       bp <- newPensPoint y.
  37.       <primitive 187 3 2 fp name>.
  38.       <primitive 187 3 3 bp name>.
  39.       frontPen <- fp.
  40.       backPen  <- bp
  41. |
  42.    getDrawMode
  43.       drawMode <- <primitive 187 2 4 name>.
  44.       ^ drawMode
  45. |
  46.    setDrawMode: newDrawMode
  47.       <primitive 187 3 4 newDrawMode name>.
  48.       drawMode <- newDrawMode
  49. |
  50.    getCount
  51.       count <- <primitive 187 2 5 name>.
  52.       ^ count
  53. |
  54.    setCount: newCount
  55.       <primitive 187 3 5 newCount name>.
  56.       count <- newCount
  57. |
  58.    getNextBorderName
  59.       nextBorderName <- <primitive 187 2 6 name>.
  60.       ^ nextBorderName
  61. |
  62.    setNextBorderName: newBorder
  63.       <primitive 187 3 6 newBorder name>.
  64.       nextBorderName <- newBorder
  65. |
  66.    setBorderPoint: thePt to: newPoint
  67.       <primitive 187 4 thePt (newPoint x) (newPoint y) name>
  68. |
  69.    new: borderName
  70.       <primitive 187 1 2 borderName>.
  71.       name           <- borderName.
  72.       nextBorderName <- nil.
  73.       leftEdge       <- 0.
  74.       topEdge        <- 0.
  75.       frontPen       <- 1.
  76.       backPen        <- 0.
  77.       drawMode       <- 1.
  78.       count          <- 2.
  79.       ^ self
  80. ]
  81.  
  82. "---------------------------------------------------------------------"
  83. " Line Class relies on Class Border to implement a lot of its methods."
  84. "---------------------------------------------------------------------"
  85.  
  86. Class Line :Border
  87. [
  88.   makeLine: lineName from: fPoint to: tPoint
  89.     super            new:       lineName.
  90.     super setBorderPoint: 1 to: fPoint.
  91.     super setBorderPoint: 2 to: tPoint.
  92.  
  93.     ^ self
  94. ]
  95.  
  96. "---------------------------------------------------"
  97. " Triangle Class relies on Class Border to implement"
  98. " a lot of its methods.                             "
  99. "---------------------------------------------------"
  100.  
  101. Class Triangle :Border
  102. [
  103.   makeTriangle: triangleName vert1: v1Point vert2: v2Point vert3: v3Point
  104.     super            new: triangleName.
  105.     super       setCount: 4.
  106.     super setBorderPoint: 1 to: v1Point.
  107.     super setBorderPoint: 2 to: v2Point.
  108.     super setBorderPoint: 3 to: v3Point.
  109.     super setBorderPoint: 4 to: v1Point.
  110.  
  111.     ^ self
  112. ]
  113.  
  114. "----------------------------------------------------"
  115. " Rectangle Class relies on Class Border to implement"
  116. " a lot of its methods.                              "
  117. "----------------------------------------------------"
  118.  
  119. Class Rectangle :Border
  120. [
  121.   makeRectangle: rectangleName from: fPoint to: tPoint ! x1 y1 x2 y2 !
  122.     x1 <- fPoint x.
  123.     y1 <- fPoint y.
  124.     x2 <- tPoint x.
  125.     y2 <- tPoint y.
  126.  
  127.     super      new: rectangleName.
  128.     super setCount: 5.
  129.         
  130.     super setBorderPoint: 1 to: x1 @ y1.
  131.     super setBorderPoint: 2 to: x2 @ y1.
  132.     super setBorderPoint: 3 to: x2 @ y2.
  133.     super setBorderPoint: 4 to: x1 @ y2.
  134.     super setBorderPoint: 5 to: x1 @ y1.
  135.  
  136.     ^ self    
  137. ]
  138.